0 POKE53280,0:POKE53281,0:PRINT"[147][154]":GOSUB80
1 PRINT"[196]IESES [208]ROGRAMM DIENT ZUM [197]RSTELLEN VON
2 [153]"VERTIKALEN (null)CROLLSCREENS AUS MEHREREN
3 PRINT"[205]ULTICOLOR-[197]INZELBILDERN.
4 [153]"STR$IE PEEKILDER MUESSEN ALLE DEN SELBEN
5 PRINT"[198]ILENAMEN BESITZEN, DEM DANN DIE
6 [153]"LAUFENDE (null)AHLNUMMER FOLGT, Z.B.:
7 PRINTCHR$(34)"PIC1"+CHR$(34)
8 PRINTCHR$(34)"PIC2"+CHR$(34)
9 PRINTCHR$(34)"PIC3"+CHR$(34)"
10 [153]"USW.
11 PRINT"[196]IE [198]ARBINFO'S WERDEN NICHT BENUTZT!
12 N$[178]"":[133]"ASCILENAME";N$
13 [139]N$[178]""[167]12
14 [153]
15 AN[178]0:[133]"ATNNZAHL DER PEEKILDER (2-16)";AN
16 [139]AN[177]16[176]AN[179]2[167]15
17 [153]
18 ZE[178]0:[153]"(null)IEVIELE GUELTIGE (null)EILEN BESITZT JEDES
19 INPUT"[194]ILD (2-24)";ZE:IFZE>24ORZE<2THEN18
20 PRINT"[211]YSTEMDISK EINLEGEN UND [211]PACE DRUECKEN!
21 [161]A$:[139]A$[179][177]" "[167]21
22 M$[178]N$:[134]B$(17):[129]T[178]1[164]16:[135]B$(T):[130]:[131]1,2,3,4,5,6,7,8,9,10,11,12,13
23 [131]14,15,16:E[178]1:DR[178]6000
24 [158]57812"(3)",8:[151]780,0:[151]781,192:[151]782,93:[158]65493
25 [153]"PEEKILDERDISK EINLEGEN UND (null)PACE DRUECKEN!
26 GETA$:IFA$<>" "THEN26
27 PRINT"[201]CH LADE...
30 [129]T[178]1[164]AN:N$[178]M$:N$[178]N$[170]B$(E)[170]"*":E[178]E[170]1
32 [158]57812N$,8:[151]780,0:[151]781,208:[151]782,132:[158]65493
35 [158]24000,34000,34999,DR,55:DR[178]DR[170]1000
36 [153]N$
37 [130]:[153]"RIGHT$CH GENERIERE...
38 DR=6000:HI=24576
40 FORT=1TOAN
42 E=ZE*40
45 SYS24000,DR,DR+E,HI,55
47 DR=DR+1000:HI=HI+E
50 NEXT
55 PRINT"[196]ER [211]CROLLSCREEN IST FERTIG GENERIERT.
57 N$[178]"":[133]"ASCILENAME";N$
58 [139]N$[178]""[167]57
60 [153]"(null)AVEDISK EINLEGEN UND (null)PACE DRUECKEN!"
61 [161]A$:[139]A$[179][177]" "[167]61
62 [158]57812N$,8:[151]193,0:[151]194,96
65 Y[178][181](HI[173]256):X[178]HI[171](Y[172]256)
67 [151]174,X:[151]175,Y:[158]62954
69 [153]"(null)CROLLSCREEN (null)TARTADR.: 24576
70 PRINTTAB(13)"[197]NDADR.:  "HI
72 PRINT"[211]CROLLSCREEN LADEN UND VERSCHIEBEN
73 [153]"SIEHE '[U] LADE' UND '[U] TRANSFERE'
74 END
80 PRINT""TAB(16)"[176][192][174]"
81 PRINTTAB(16)"[221][158][214][154][221]"
82 PRINTTAB(16)"[173][192][189]"
83 PRINTTAB(16)"[176][192][174]"
84 PRINTTAB(16)"[221][158]E[154][221]"
85 PRINTTAB(16)"[173][192][189]"
86 PRINTTAB(16)"[176][192][174]"
87 PRINTTAB(16)"[221][158]R[154][221]"
88 PRINTTAB(16)"[173][192][189]"
89 PRINTTAB(16)"[176][192][174]"
90 PRINTTAB(16)"[221][158]T[154][221][158]IKAL[154]
91 [153][163]16)"/TANEXP"
92 [153]" LENOPYRIGHT 1989 BY (null)AURIEN (null)OFTWARE LEN(null)CONT"
93 [161]A$:[139]A$[179][177]" "[167]93
95 [129]T[178]1[164]10:[153]:[130]:[142]